Func preencherDossie()
	getNext("INPUT")
	pula(1,500)
	Send($tipo) ;Tipo
	pula(1,500)
	Send($empresa) ;Empresa
	pula(1,2000)
	pula(4,500)
	Send($posicao) ; Posicao
	pula(2,500)
	Send($unidadeNegocio) ;Unidade de Negocio
	pula(2,1500)	
	Send($depto) ;Departamento
	pula(1,500)
	If $depto <> "PP" AND $depto <> "CP" then
		pula(13,10)
	EndIf
	pula(1,500)
	If $tipoCheck = "SINISTRO" then
		Send("{SPACE}"); SINISTRO
		pula(2,500)
	Endif
	If $tipoCheck = "CONTIGENCIA" then
		pula(1,500)
		Send("{SPACE}"); CONTIGENCIA
		pula(1,500)
	Endif
	If $tipoCheck = "OUTROS" then
		pula(2,500)
		Send("{SPACE}"); OUTROS
	Endif
	pula(9,500)
	Send("{ENTER}"); ABRE TELA DE OBJETOS
	Sleep(5000);
	pula(2,500)
	Send("{SPACE}"); 
	Send("+{TAB 3}")
	Sleep(500);
	Send("{ENTER}"); Fecha tela de sinistro
	pula(6,500)
	Send("{DOWN 6}")
	pula(26,500)
	Send("{ENTER}"); Incluir
	
	fechaAlert()
EndFunc